R Notebook

knitr::opts_chunk$set(warning = FALSE, message = FALSE)

source('utils.R')

plot_distance_N(df_dim,t = 5000,f_empty_topics = TRUE,comparison_group = 'pairs',distance_formula = 'cosine', plotly = TRUE)

plot_distance_N(df_dim,t = 5000,f_empty_topics = TRUE,comparison_group = 'pairs',distance_formula = 'kullback-leibler', plotly = TRUE)

plot_distance_N(df_dim,t = 5000,f_empty_topics = TRUE,comparison_group = 'diff',distance_formula = 'cosine', plotly = TRUE)

plot_distance_N(df_dim,t = 5000,f_empty_topics = TRUE,comparison_group = 'diff',distance_formula = 'kullback-leibler', plotly = TRUE)

plot_distance_prop(df_dim,t = 5000,f_empty_topics = TRUE,distance_formula = 'kullback-leibler', plotly = TRUE,
                   regions = FALSE)